home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 2 of 2).iso / c64-games.disk / bangers.d64 / bangers (.txt)
Encoding:
Commodore BASIC  |  1995-01-01  |  29.7 KB  |  74 lines
  1. 1 POKE52,40:POKE56,40:POKE51,0:POKE55,0:POKE53280,0:POKE53281,0:GOTO10
  2. 2 PRINT"[147]"TAB(7)"[223]   CRACKED BY ODDBALL   [146][169]"
  3. 3 PRINTTAB(8)"    [146]     [146]     [146]     [146] [223][146]   "
  4. 4 PRINTTAB(8)" [146]   [146]  [146]     [146]     [146]   [146]  [223][146]  "
  5. 5 PRINTTAB(8)" [146]   [146]  [146]        [146]     [146]  [146][223][223] "
  6. 6 PRINTTAB(8)"[154] [146]   [146]  [146]     [146]     [146]   [146]  [146] [223] "
  7. 7 PRINTTAB(8)"    [146]     [146]     [146]  [146]   [146]  [146]   "
  8. 9 PRINT""TAB(7)"[169]    THANKS TO HANDIC    [223][146]":RETURN
  9. 10 POKE788,52:POKE45,242:POKE46,18:CLR
  10. 12 GOSUB2:PRINT"    PRESENTS FOR YOUR ENTERTAINMENT":GOSUB1031:GOSUB1012
  11. 13 S=54272:POKES+23,1:POKES+5,15:POKES+12,15:POKES+19,15:POKES+6,240:POKES+13,24:POKES+20,240
  12. 14 POKES+10,2:POKES+9,2:POKES+17,2:POKES+16,2:POKES+4,33:POKES+11,65:POKES+18,65:GOSUB1011
  13. 15 POKES+24,69:FORX=1TO11:READAA:POKES,AA:READB:POKES+1,B:READZZ
  14. 16 POKES+7,ZZ:READD:POKES+8,D
  15. 17 READE:POKES+14,E:READF:POKES+15,F:READG
  16. 18 G=G-8:IFG>0THEN18
  17. 19 NEXT
  18. 20 GOSUB1031:SYS31389
  19. 28 GOSUB2000
  20. 29 GOSUB2:PRINT"USE  JOYSTICK/S  TO  GUIDE CONNY TO GET"
  21. 30 PRINT"THREE SAUSAGES  AND TAKE THEM TO '[150]MASH'";
  22. 31 PRINT" THE [129]DOG. BUT  BEWARE  THE [129]'JIMPYS'  WHO"
  23. 32 PRINT"WILL 'FUCK' YOU TO DEATH FOR A BANGER!!"
  24. 33 PRINT"YOU CAN DROP A  SAUSAGE  FOR THEM USING"
  25. 34 PRINT"THE  [150]FIRE  BUTTON BUT YOU ONLY SCORE ON"
  26. 35 PRINT"THOSE MASH EATS.   YOU CAN PASS THROUGH"
  27. 36 PRINT"THE GATES BUT THE [129]'JIMPYS' CANNOT.....[150]":A$="":POKE198,0
  28. 37 PRINT"[154][145][145]   [218]  [218] [156][192]SELECT 1 OR 2 PLAYERS[192][146][154] [218]  [218]  ";
  29. 38 GETA$:POKE18609,1:IFA$="2"THENPOKE18609,2
  30. 39 IFA$=""THEN38:POKE18610,0
  31. 40 DATA186,5,107,14,75,34,400,0,0,0,0,0,0,80,114,11,214,28,75,34,80,147,8,227,22
  32. 41 DATA214,28,80,114,11,214,28,75,34,80,70,15,126,38,198,45,560,0,0,0,0,0,0,10,7
  33. 42 DATA15,126,38,198,45,80,216,12,94,32,126,38,80,70,15,126,38,198,45,80,227,22
  34. 43 DATA172,57,149,68,1200
  35. 44 PRINT"[147]":SYS31399
  36. 730 W(1)=(PEEK(J)-C)*K+(PEEK(J+1)-C)*L+(PEEK(J+2)-C)*A+(PEEK(J+3)-C)*Y
  37. 732 W(2)=(PEEK(J+6)-C)*K+(PEEK(J+7)-C)*L+(PEEK(J+8)-C)*A+(PEEK(J+9)-C)*Y:GOSUB5000
  38. 800 Z=1
  39. 900 POKE198,0:I$="":T$=STR$(W(Z)):P=LEN(T$):T$=LEFT$("000000",7-P)+RIGHT$(T$,P-1)
  40. 901 O=0:FORM=1TO5:IFW(Z)>VAL(LEFT$(B$(M),6))THENO=M:M=5
  41. 902 IFO=0THENFORT=1TO1000:NEXTM:GOTO913
  42. 903 GOSUB2:PRINTTAB(8)"A GREAT SCORE PLAYER "Z"":POKE198,0
  43. 904 PRINTTAB(8)"ENTER YOUR INITIALS FOR":PRINTTAB(9)"[129]**    SUPERSTARS    **"
  44. 905 PRINT"":A$="":FORN=1TO3:GOSUB1020:I$=I$+A$:PRINTTAB(18)A$;:NEXTN
  45. 911 FORG=4TOOSTEP-1:B$(G+1)=B$(G):NEXTG
  46. 912 B$(O)=T$+" "+I$
  47. 913 GOSUB2:PRINT"[145][145]       [169] [218] [218] [218] SUPERSTARS [218] [218] [218] [223][146]"
  48. 914 FORI=1TO5:PRINT""TAB(11)I;"   [129]"B$(I):NEXT:IFPEEK(18609)=2THENGOSUB1011
  49. 915 IFPEEK(18609)=2THENZ=2:POKE18609,0:GOTO900
  50. 925 PRINT"[154]   [218]  [218]  [218] [156][192][192] PRESS  SHIFT [192][192][146][154] [218]  [218]  [218]":WAIT653,1
  51. 930 GOTO29
  52. 1011 FORF=1TO2000:NEXT:RETURN
  53. 1012 RETURN
  54. 1020 A$="":GETA$:IFA$=""THEN1020
  55. 1021 RETURN
  56. 1031 FORF=54272TO54295:POKEF,0:NEXT:RETURN
  57. 2000 GOSUB2:PRINT"  THIS GAME HAS BEEN CRACKED FOR ONE OR"
  58. 2002 PRINT"    TWO PLAYERS USING JOYSTICK/S ONLY"
  59. 2004 PRINT"    YOU CAN USE [150]ONE OR [150]TWO JOYSTICKS"
  60. 2005 PRINT" [155] [152] [151] [146]   [156][192][192] ENTER  1 OR 2 [192][192][146]   [151] [152] [155]  [146][154]"
  61. 2006 POKE15563,1
  62. 2007 GETA$:IFA$=""THEN2006
  63. 2008 IFA$="2"THENPOKE15563,0
  64. 2020 RETURN
  65. 4000 OPEN1,1,0,"M.C.FILE"
  66. 4001 SYS65493
  67. 4002 CLOSE1
  68. 4010 DIMB$(5):FORI=1TO5:B$(I)="010000 ...":NEXT:DIMW(2):C=112
  69. 4011 J=18593
  70. 4012 K=100000:L=10000:A=1000:Y=100
  71. 4014 GOTO12
  72. 5000 PRINT"[147]":POKE53270,200:POKE53272,21
  73. 5001 RETURN
  74.